Language/OS - Multiplatform Resource Library/LANGUAGE OS.iso/dsp/dspgroup/macros.arc/LDAX.ASM

Assembly Source File | 1983-11-17 | 2.0 KB | 26 lines

*LOAD DOUBLE PRECISION
*
LDAX   $MACRO  A         LOAD DOUBLE
       $VAR ST,SP,SM
       $ASG '*' TO ST.S
       $ASG '*+' TO SP.S
       $ASG '*-' TO SM.S
       $IF A.SV=ST.SV
       ZALH *+           LOAD HIGH
       ADDS *-           LOAD LOW '*'
       $ELSE
       $IF A.SV=SP.SV
       ZALH *+           LOAD HIGH
       ADDS *+           LOAD LOW '*+'
       $ELSE
       $IF A.SV=SM.SV
       ZALS *-           LOAD LOW
       ADDH *-           LOAD HIGH '*-'
       $ELSE
       ZALH :A:          LOAD HIGH :A:
       ADDS :A:+1        LOAD LOW :A:
       $ENDIF
       $ENDIF
       $ENDIF
       $END